character(len=20) function addleadzeros(intnumber,nzeros)
! Função para acrescentar
! *** Sem Variáveis Implícitas
	implicit none
!
	integer intnumber, nzeros

write(addleadzeros,'(i0)') intnumber

addleadzeros = repeat('0',nzeros-len_trim(adjustl(addleadzeros))) // adjustl(addleadzeros)

end function addleadzeros
